home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / gui / muibuilder21.lha / MUIBuilder / Install / Install_MB < prev    next >
Encoding:
Text File  |  1994-12-12  |  12.2 KB  |  469 lines

  1. (complete 0)
  2.  
  3. (set locale 0)
  4.  
  5. ;===========================================================================
  6. ; English strings
  7.  
  8. (if (= @language "english")
  9. (
  10.  
  11. (set #bad-MUI         (cat "You need at least MUI2.2 to use MUIBuilder 2.0." ))
  12. (set #dir-choice     (cat "Select the directory where the MUIBuilder Directory will be created." ))
  13. (set #copy         (cat "Copying MUIBuilder"))
  14. (set #doc-copy         (cat "Copying Documentation"))
  15. (set #olddoc         (cat "/MB/Documentations/MUIBuilder_english.guide"))
  16. (set #olddocdvi        (cat "/MB/Documentations/MUIBuilder_english.dvi"))
  17. (set #copyENV         (cat "Copying to ENV:"))
  18. (set #copyENVARC     (cat "Copying to ENVARC:"))
  19. (set #installcatalog     (cat "\n\nDo you want to install the english catalog ?"))
  20. (set #copycatalog     (cat "Installation of the english catalogue."))
  21. (set #catalogname     (cat "/Catalogs/English/MUIBuilder.catalog"))
  22. (set #destname         (cat "Locale:Catalogs/English"))
  23. (set #genchoice        (cat "Chose the generators you need"))
  24. (set #c            (cat "C language"))
  25. (set #E            (cat "E language"))
  26. (set #Oberon        (cat "Oberon language"))
  27. (set #Modula        (cat "Modula2 language"))
  28. (set #Assembly        (cat "Assembly language"))
  29. (set #libcopy        (cat "Copying ss.library to LIBS:"))
  30.  
  31. ))
  32.  
  33. ;===========================================================================
  34. ; French strings
  35.  
  36. (if (= @language "français")
  37. (
  38. (set locale 1)
  39.  
  40. (set #bad-MUI         (cat "Vous avez besoin au moins de MUI2.2 pour utiliser MUIBuilder 2.0." ))
  41. (set #dir-choice     (cat "Sélectionnez le répertoire dans lequel vous voulez installer le répertoire de MUIBuider." ))
  42. (set #copy         (cat "Copie de MUIBuilder"))
  43. (set #doc-copy         (cat "Copie de la Documentation"))
  44. (set #olddoc         (cat "/MB/Documentations/MUIBuilder_Français.guide"))
  45. (set #olddocdvi     (cat "/MB/Documentations/MUIBuilder_Français.dvi"))
  46. (set #copyENV         (cat "Copie des variables d'environnement dans ENV:"))
  47. (set #copyENVARC     (cat "Copie des variables d'environnement dans ENVARC:"))
  48. (set #installcatalog     (cat "\n\nVoulez vous installer le catalogue Français ?"))
  49. (set #copycatalog     (cat "Installation du catalogue Français."))
  50. (set #catalogname     (cat "/Catalogs/Français/MUIBuilder.catalog"))
  51. (set #destname         (cat "Locale:Catalogs/Français"))
  52. (set #genchoice        (cat "Choisissez les modules externes dont vous avez besoin"))
  53. (set #c            (cat "Langage C"))
  54. (set #E            (cat "Langage E"))
  55. (set #Oberon        (cat "Langage Oberon"))
  56. (set #Modula        (cat "Langage Modula2"))
  57. (set #Assembly        (cat "Langage Assembleur"))
  58. (set #libcopy        (cat "Copie de la ss.library vers LIBS:"))
  59.  
  60. ))
  61.  
  62. ;===========================================================================
  63. ; German strings
  64.  
  65. (if (= @language "deutsch")
  66. (
  67. (set locale 0)
  68.  
  69. (set #bad-MUI         (cat "Sie benötigen mindestens MUI2.2, um MUIBuilder 2.0 zu nutzen."))
  70. (set #dir-choice     (cat "Wählen Sie das Verzeichnis aus, in welches das Verzeichnis von MUIBuilderV1.1 installiert wird."))
  71. (set #copy         (cat "Kopiere MUIBuilder"))
  72. (set #doc-copy         (cat "Kopiere Dokumentation"))
  73. (set #olddoc         (cat "/MB/Documentations/MUIBuilder_English.guide"))
  74. (set #olddocdvi     (cat "/MB/Documentations/MUIBuilder_English.dvi"))
  75. (set #copyENV         (cat "Kopiere nach ENV:"))
  76. (set #copyENVARC     (cat "Kopiere nach ENVARC:"))
  77. (set #installcatalog     (cat "\n\nSoll der deutsche Catalog installiert werden?"))
  78. (set #copycatalog     (cat "Installiere deutschen Catalog." ))
  79. (set #catalogname     (cat "/Catalogs/Deutsch/MUIBuilder.catalog"))
  80. (set #destname         (cat "Locale:Catalogs/Deutsch"))
  81. (set #genchoice        (cat "Wählen Sie die Modulen aus, die Sie wollen"))
  82. (set #c            (cat "C Sprache"))
  83. (set #E            (cat "E Sprache"))
  84. (set #Oberon        (cat "Oberon Sprache"))
  85. (set #Modula        (cat "Modula2 Sprache"))
  86. (set #Assembly        (cat "Assembly Sprache"))
  87. (set #libcopy        (cat "Kopiere ss.library nach LIBS:"))
  88.  
  89. ))
  90.  
  91. ;===========================================================================
  92. ; Czech strings
  93.  
  94. (if (= @language "czech")
  95. (
  96. (set locale 3)
  97.  
  98. (set #bad-MUI         (cat "MUIBuilder 2.0 vyùaduje MUI2.2 !" ))
  99. (set #dir-choice     (cat "Zvolte adresáê, ve kterém chcete vytvoêit adresáê pro MUIBuilder." ))
  100. (set #copy         (cat "Kopíruji MUIBuilder"))
  101. (set #doc-copy         (cat "Kopíruji Dokumentaci"))
  102. (set #olddoc         (cat "/MB/Documentations/MUIBuilder_english.guide"))
  103. (set #olddocdvi     (cat "/MB/Documentations/MUIBuilder_english.dvi"))
  104. (set #copyENV         (cat "Kopíruji do ENV:"))
  105. (set #copyENVARC     (cat "Kopíruji do ENVARC:"))
  106. (set #installcatalog     (cat "\n\nChcete nainstalovat çeský katalog?"))
  107. (set #copycatalog     (cat "Instaluji çeský katalog."))
  108. (set #catalogname     (cat "/Catalogs/Czech/MUIBuilder.catalog"))
  109. (set #destname         (cat "Locale:Catalogs/Czech"))
  110. (set #genchoice        (cat "Zvolte generátory, které si pêejete nainstalovat"))
  111. (set #c            (cat "Jazyk C"))
  112. (set #E            (cat "Jazyk E"))
  113. (set #Oberon        (cat "Jazik Oberon"))
  114. (set #Modula        (cat "Jazik Modula2"))
  115. (set #Assembly        (cat "Assembler"))
  116. (set #libcopy        (cat "Kopíruji ss.library do LIBS:"))
  117.  
  118. ))
  119.  
  120. ;=============================================================================
  121. ; Español strings
  122.  
  123. (if (= @language "español")
  124. (
  125. (set locale 0)
  126.  
  127. (set #bad-MUI         (cat "Necesitas al menos MUI2.2 para usar MUIBuilder 2.0." ))
  128. (set #dir-choice     (cat "Elige el Directorio donde quieres instalar MUIBuilder." ))
  129. (set #copy         (cat "Copiando MUIBuilder"))
  130. (set #doc-copy         (cat "Copiando Documentación"))
  131. (set #olddoc         (cat "/MB/Documentations/MUIBuilder_english.guide"))
  132. (set #olddocdvi     (cat "/MB/Documentations/MUIBuilder_english.dvi"))
  133. (set #copyENV         (cat "Copiando a ENV:"))
  134. (set #copyENVARC     (cat "Copiando a ENVARC:"))
  135. (set #installcatalog     (cat "\n\nQuieres instalar el catálogo español ?"))
  136. (set #copycatalog     (cat "Instalación del catálogo español."))
  137. (set #catalogname     (cat "/Catalogs/Español/MUIBuilder.catalog"))
  138. (set #destname         (cat "Locale:Catalogs/Español"))
  139. (set #genchoice        (cat "Elige los módulos externos que necesites"))
  140. (set #c            (cat "Lenguaje C"))
  141. (set #E            (cat "Lenguaje E"))
  142. (set #Oberon        (cat "Lenguaje Oberon"))
  143. (set #Modula        (cat "Lenguaje Modula2"))
  144. (set #Assembly        (cat "Lenguaje Ensamblador"))
  145. (set #libcopy        (cat "Copiando ss.library a LIBS:"))
  146.  
  147. ))
  148.  
  149. ;===========================================================================
  150. ; Polish strings - Marcin Orîowski
  151.  
  152. (if (= @language "polski")
  153. (
  154. (set locale 0)
  155.  
  156. (set #bad-MUI         (cat "Potrzebujesz co najmniej MUI2.2 aby uûyê MUIBuildera 2.0." ))
  157. (set #dir-choice     (cat "Wybierz katalog docelowy, w ktorym zostanie zaîoûony katalog MUIBuilder." ))
  158. (set #copy         (cat "Co chcesz zainstalowaê?"))
  159. (set #doc-copy         (cat "Instalujë dokumentacjë"))
  160. (set #olddoc         (cat "/MB/Documentations/MUIBuilder_english.guide"))
  161. (set #olddocdvi        (cat "/MB/Documentations/MUIBuilder_english.dvi"))
  162. (set #copyENV         (cat "Kopiujë do katalogu ENV:"))
  163. (set #copyENVARC     (cat "Kopiujë do katalogu ENVARC:"))
  164. (set #installcatalog     (cat "\n\nCzy chcesz zainstalowaê polski katalog (plik jëzykowy)?"))
  165. (set #copycatalog     (cat "Instalujë polski katalog."))
  166. (set #catalogname     (cat "/Catalogs/Polski/MUIBuilder.catalog"))
  167. (set #destname         (cat "Locale:Catalogs/polski"))
  168. (set #genchoice        (cat "Wybierz generatory tekstów úródîowych"))
  169. (set #c            (cat "Jëzyk C"))
  170. (set #E            (cat "Jëzyk E"))
  171. (set #Oberon        (cat "Oberon"))
  172. (set #Modula        (cat "Modula2"))
  173. (set #Assembly        (cat "Assembler"))
  174. (set #libcopy        (cat "Kopiujë ss.library do katalogu LIBS:"))
  175.  
  176. ))
  177.  
  178. ;===========================================================================
  179. ; Italian strings
  180.  
  181. (if (= @language "italiano")
  182. (
  183. (set locale 6)
  184.  
  185. (set #bad-MUI         (cat "You need at least MUI2.2 to use MUIBuilder 2.0." ))
  186. (set #dir-choice     (cat "Select the directory where the MUIBuilder Directory will be created." ))
  187. (set #copy         (cat "Copying MUIBuilder"))
  188. (set #doc-copy         (cat "Copying Documentation"))
  189. (set #olddoc         (cat "/MB/Documentations/MUIBuilder_english.guide"))
  190. (set #olddocdvi        (cat "/MB/Documentations/MUIBuilder_english.dvi"))
  191. (set #copyENV         (cat "Copying to ENV:"))
  192. (set #copyENVARC     (cat "Copying to ENVARC:"))
  193. (set #installcatalog     (cat "\n\nDo you want to install the english catalog ?"))
  194. (set #copycatalog     (cat "Installation of the english catalogue."))
  195. (set #catalogname     (cat "/Catalogs/English/MUIBuilder.catalog"))
  196. (set #destname         (cat "Locale:Catalogs/English"))
  197. (set #genchoice        (cat "Chose the generators you need"))
  198. (set #c            (cat "C language"))
  199. (set #E            (cat "E language"))
  200. (set #Oberon        (cat "Oberon language"))
  201. (set #Modula        (cat "Modula2 language"))
  202. (set #Assembly        (cat "Assembly language"))
  203. (set #libcopy        (cat "Copying ss.library to LIBS:"))
  204.  
  205. ))
  206.  
  207. ;=============================================================================
  208. ;=============================================================================
  209. ; Installation procedure
  210.  
  211. ( set MBdir "Ram:" )
  212.  
  213. ;========================================================================
  214. ;
  215. ; Scanning MUI version
  216. ;
  217.  
  218. ( set versionnumber (getversion "LIBS:muimaster.library" ) )
  219. ( set version (/ versionnumber 65536))
  220.  
  221. ( if (< version 8)
  222.     (
  223.         (if (= locale 0)
  224.                 ( abort #bad-MUI )
  225.         )
  226.     )
  227. )
  228.  
  229. ;========================================================================
  230. ;
  231. ; Select the MUIBuilder directory
  232. ;
  233.  
  234. (set MBdir
  235.     ( askdir
  236.         ( prompt #dir-choice )
  237.         (help "")
  238.         (default "Sys:")
  239.         (newpath)
  240.     )
  241. )
  242.  
  243. ;========================================================================
  244. ;
  245. ; Copying MUIBuilder
  246. ;
  247.  
  248. (complete 10)
  249.  
  250. (set @default-dest MBdir )
  251. (set MBdir ( tackon MBdir "MUIBuilder" ) )
  252.  
  253. (copyfiles
  254.     (prompt #copy)
  255.     (source "/MB")
  256.     (help   @copyfiles-help)
  257.     (infos)
  258.     (dest MBdir)
  259.     (choices "MUIBuilder"
  260.          "BuilderSave"
  261.          "Tools"
  262.          "Catalogs"
  263.          "Developer"
  264.     )
  265.     (confirm)
  266. )
  267.  
  268. (copyfiles
  269.     (source "/MB.info")
  270.     (help    @copyfiles-help)
  271.     (dest     @default-dest)
  272.     (newname (cat MBdir ".info"))
  273. )
  274.  
  275. (complete 20)
  276.  
  277. ;========================================================================
  278. ;
  279. ; Copying muibuilder.library
  280. ;
  281.  
  282.  
  283. (copylib
  284.     (source    "/Libs/muibuilder.library")
  285.     (dest "LIBS:")
  286.     (prompt #libcopy)
  287.     (help @copylib-help)
  288.     (confirm)
  289. )
  290.  
  291. (complete 30)
  292.  
  293. ;========================================================================
  294. ;
  295. ; Copying Modules
  296.  
  297. (set modules
  298.     (askoptions
  299.         (prompt     #genchoice)
  300.         (help     @askoptions-help)
  301.         (choices #C
  302.              #E
  303.              #Oberon
  304.              #Modula
  305.         )
  306.         (default 15)
  307.     )
  308. )
  309.  
  310. ;======================
  311. ; Copying GenCodeC
  312. ;
  313. (if (IN modules 0)
  314.     (
  315.         (copyfiles
  316.             (source "/MB/Modules")
  317.             (dest (tackon MBdir "Modules"))
  318.             (choices "GenCodeC" "C-Header" "H-Header")
  319.         )
  320.         (copyfiles
  321.             (source "/MB")
  322.             (dest MBdir)
  323.             (choices "C")
  324.             (infos)
  325.         )
  326.     )
  327. )    
  328.  
  329. ;======================
  330. ; Copying GenCodeE
  331. ;
  332. (if (IN modules 1)
  333.     (
  334.         (copyfiles
  335.             (source "/MB/Modules")
  336.             (dest (tackon MBdir "Modules"))
  337.             (choices "GenCodeE21b" "GenCodeE30b")
  338.         )
  339.         (copyfiles
  340.             (infos)
  341.             (source "/MB")
  342.             (dest MBdir)
  343.             (choices "E")
  344.         )
  345.     )
  346. )
  347.  
  348. ;======================
  349. ; Copying GenCodeOberon
  350. ;
  351. (if (IN modules 2)
  352.     (
  353.         (copyfiles
  354.             (source "/MB/Modules")
  355.             (dest (tackon MBdir "Modules"))
  356.             (choices "GenCodeOberon")
  357.         )
  358.         (copyfiles
  359.             (infos)
  360.             (source "/MB")
  361.             (dest MBdir)
  362.             (choices "Oberon")
  363.         )
  364.     )
  365. )
  366.  
  367. ;======================
  368. ; Copying GenCodeModula
  369. ;
  370. (if (IN modules 3)
  371.     (
  372.         (copyfiles
  373.             (source "/MB/Modules")
  374.             (dest (tackon MBdir "Modules"))
  375.             (choices "GenCodeM2")
  376.         )
  377.         (copyfiles
  378.             (infos)
  379.             (source "/MB")
  380.             (dest MBdir)
  381.             (choices "M2")
  382.         )
  383.     )
  384. )
  385.  
  386. (complete 60)
  387.  
  388. ;========================================================================
  389. ;
  390. ; Copying documentation
  391. ;
  392.  
  393. ( set MBdoc ( tackon MBdir "Documentations" ) )
  394.  
  395. (copyfiles
  396.     (prompt #doc-copy)
  397.     (source #olddoc)
  398.     (newname "MUIBuilder.guide")
  399.     (help @copyfiles-help)
  400.         (infos)
  401.     (confirm)
  402.         (dest MBdoc )
  403. )
  404.  
  405. (copyfiles
  406.     (source "/MB/Documentations.info")
  407.     (newname (cat MBdoc ".info"))
  408.     (dest @default-dest)
  409. )
  410.  
  411. (copyfiles
  412.     (prompt #doc-copy)
  413.     (source #olddocdvi)
  414.     (newname "MUIBuilder.dvi")
  415.     (help @copyfiles-help)
  416.         (infos)
  417.     (confirm)
  418.         (dest MBdoc )
  419. )
  420.  
  421. ;========================================================================
  422. ;
  423. ; copying MUIBuilder.catalog files
  424. ;
  425.  
  426. (complete 70)
  427.  
  428. (if (> locale 0)
  429.     (if     (askbool
  430.         (prompt #installcatalog)
  431.         (help   "")
  432.         )
  433.         (copylib
  434.             (prompt #copycatalog)
  435.             (source #catalogname)
  436.             (dest   #destname)
  437.             (help   @copylib-help)
  438.             (confirm)
  439.         )
  440.     )
  441. )
  442.  
  443. ;=========================================================================
  444. ;
  445. ; Copying environment variables
  446. ;
  447.  
  448. (complete 80)
  449.  
  450. (copyfiles
  451.     (prompt #copyENV)
  452.     (source "/Env")
  453.     (dest   "ENV:")
  454.     (all)
  455. )
  456.  
  457. (copyfiles
  458.     (prompt #copyENVARC)
  459.     (source "/Env")
  460.     (dest   "ENVARC:")
  461.     (help   @copyfiles-help)
  462.     (confirm)
  463.     (all)
  464. )
  465.  
  466. (complete 99)
  467.  
  468. (exit)
  469.